﻿Public Class frmRapportControle


    Public Sub Remplir()

        Partager.remplirRapportControle()

        Dim crys As New CrysControle
        crys.SetDataSource(Partager.ds.Tables("Jalassat"))

        Crystal_jalassat.ReportSource = crys
        Crystal_jalassat.Refresh()
        '---------------------------------

    End Sub

    Private Sub frmRapportControle_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Remplir()
    End Sub
End Class